home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / op_118.zip / OPCFG.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-03-12  |  14KB  |  647 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  13629 bytes  01/28/123  08:37:12pm
  3. '! Code Segment Size  :4987 bytes
  4. '! Data Segment Size  :4514 bytes
  5. '! String Segment Size:8642 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Declare Function Func467(l65534 As Long, l65532 As Long) As Integer
  9.       Declare Function Func939 As Integer
  10.       Declare Sub Sub1781
  11.       Declare Sub Sub2452
  12.       Declare Function Func3185 As Integer
  13.  
  14.       Dim s4463 As String
  15.       Dim i4467 As Integer
  16.       Dim l4469 As Long
  17.       Dim i4473 As Integer
  18.       Dim o4475 As Boolean
  19.       Dim o4476 As Boolean
  20.       Dim s4477 As String
  21.       Dim s4481 As String
  22.       Dim s4485 As String
  23.       Dim s4489 As String
  24.       Dim s4493 As String
  25.       Dim s4497 As String
  26.       Dim s4501 As String
  27.       Dim s4505 As String
  28.       Dim b4509 As Byte
  29.       Dim s4510 As String
  30.  
  31.       Dim l65532_ As Long '! Temporary
  32.  
  33.       s4463 = ProgPath + "opPage.cfg"
  34.       s4510 = UCase(s4510)
  35.       i4467 = 0
  36.       If Exists(s4463) Then
  37.         Open s4463 For Input As 1
  38.         Input #1, l4469
  39.         Input #1, i4473
  40.         Input #1, o4475
  41.         Input #1, o4476
  42.         Input #1, s4477
  43.         Input #1, s4481
  44.         Input #1, s4485
  45.         Input #1, s4489
  46.         Input #1, s4493
  47.         Input #1, s4497
  48.         Input #1, s4501
  49.         Input #1, s4505
  50.         Input #1, b4509
  51.         Input #1, s4510
  52.         Close 1
  53.       Else
  54.   217   l4469 = 0
  55.         i4473 = 0
  56.         o4475 = 0
  57.         o4476 = -1
  58.         s4477 = "Paging the SysOp, eh?  Better be good!"
  59.         s4481 = "@0E@"
  60.         s4485 = "Have you played ALL the doors?"
  61.         s4489 = "@0D@"
  62.         s4493 = "Counting to SIX....press SPACE BAR to abort page."
  63.         s4497 = "@0C@"
  64.         s4501 = "Check out my new uploads!"
  65.         s4505 = "@0A@"
  66.         b4509 = 0
  67.         Cls 
  68.         Beep 
  69.         Print
  70.         Print "  @0C@ATTENTION SYSOP!@0F@"
  71.         Print
  72.         Print "  No configuration file was found, inserting default answers."
  73.         Print "  Please remember to @CF@SAVE@0F@ your configuration!"
  74.         Print
  75.         WaitEnter 
  76.       End If
  77.   363
  78.       If Func467(l4469, (81762)) Then
  79.         i4467 = -1
  80.       Else
  81.   410   i4467 = 0
  82.       End If
  83.   416 Func3185
  84.  
  85. '! Called 1 time
  86.       Function Func467(l65534 As Long, l65532 As Long) As Integer
  87.         Dim l65467 As Long
  88.         Dim i65471 As Integer
  89.         Dim l65473 As Long
  90.         Dim i65477 As Integer
  91.         Dim s65483 As String*7
  92.         Dim s65490 As String*30
  93.         Dim l65520 As Long
  94.         Dim l65524 As Long
  95.         Dim i65528 As Integer
  96.  
  97.         s65490 = UCase(MakeWild.BBSName)
  98.         s65490 = Trim(s65490)
  99.         l65524 = 0
  100.   544   For i65528 = 1 To Len(s65490) Step 1
  101.           l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
  102.         Next
  103.   648   s65483 = UCase(MakeWild.RegString)
  104.         s65483 = Trim(s65483)
  105.         l65520 = 0
  106.   717   For i65528 = 1 To Len(s65483) Step 1
  107.           l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
  108.         Next
  109.   821   l65520 = l65520 + l65524
  110.         l65520 = l65520 * 19
  111.         l65520 = l65520 * l65532
  112.         l65520 = l65520 + l65532
  113.         If l65520 = l65534 Then
  114.           Func467 = - 1
  115.         Else
  116.   925     Func467 = 0
  117.         End If
  118.   931
  119.       End Function
  120.  
  121. '! Called 1 time
  122.       Function Func939 As Integer
  123.         Dim s65532 As String*1
  124.         Dim s65533 As String*1
  125.  
  126.         Do
  127.           Do
  128.             Do
  129.               Do
  130.                 Do
  131.                   Do
  132.                     Do
  133.                       Do
  134.                         Do
  135.   948                     Cls 
  136.                           Print "@0F@  @0C@opPAGE Configuration Utility v1.02                                   @0F@Page 2"
  137.                           Print "@0F@ @08@─────────────────────────────────────────────────────────────────────────────"
  138.                           Print "@08@  @0C@1@0B@] @0B@Reason Screen Message #1 (In Choosen Color @0C@A@0B@)"
  139.                           Print
  140.                           Print "@0B@  -@0F@> "; s4481; s4477
  141.                           Print
  142.                           Print "@0F@  @0C@2@0B@] @0B@Reason Screen Message #2 (In Choosen Color @0C@B@0B@)"
  143.                           Print
  144.                           Print "@0B@  -@0F@> "; s4489; s4485
  145.                           Print "@0F@ @08@─────────────────────────────────────────────────────────────────────────────"
  146.                           Print "@08@  @0C@3@0B@] @0B@Waiting Screen Message #1 (In Choosen Color @0C@C@0B@)"
  147.                           Print
  148.                           Print "@0B@  -@0F@> "; s4497; s4493
  149.                           Print
  150.                           Print "@0F@  @0C@4@0B@] @0B@Waiting Screen Message #2 (In Choosen Color @0C@D@0B@)"
  151.                           Print
  152.                           Print "@0B@  -@0F@> "; s4505; s4501
  153.                           Print "@0F@ @08@─────────────────────────────────────────────────────────────────────────────"
  154.                           Print "@08@        @0B@[@0F@H @0B@= @0F@HELP@0B@, @0F@1@0B@-@0F@4 @0B@= @0F@MESSAGES@0B@, @0F@A@0B@-@0F@D @0B@= @0F@COLORS@0B@, @0F@ENTER @0B@= @0F@PREV PAGE@0B@]"
  155.                           Print "@0B@ @08@─────────────────────────────────────────────────────────────────────────────"
  156.                           Print "@08@  @0C@SELECT:@0F@ ";
  157.                           Input s65533
  158.                           s65532 = s65533
  159.                           If (s65532 = "1") = 0 Then GoTo 1223
  160.                           Print
  161.                           Print " @0B@ Message #1 : @0F@"
  162.                           Print " @0B@>@0F@";
  163.                           Input s4477
  164.                         Loop
  165.                         GoTo 1773
  166.  1223                   If s65532 = "A" Then GoTo 1261
  167.                         If (s65532 = "a") = 0 Then GoTo 1302
  168.  1261                   Print
  169.                         s4481 = InputMask(" @0B@Enter color code to use for Message #1 : @0F@", "XXXX", "", 1213417543)
  170.                       Loop
  171.                       GoTo 1773
  172.  1302                 If (s65532 = "2") = 0 Then GoTo 1359
  173.                       Print
  174.                       Print " @0B@ Message #2 : @0F@"
  175.                       Print " @0B@>@0F@";
  176.                       Input s4485
  177.                     Loop
  178.                     GoTo 1773
  179.  1359               If s65532 = "B" Then GoTo 1397
  180.                     If (s65532 = "b") = 0 Then GoTo 1438
  181.  1397               Print
  182.                     s4489 = InputMask(" @0B@Enter color code to use for Message #2 : @0F@", "XXXX", "", 1213417543)
  183.                   Loop
  184.                   GoTo 1773
  185.  1438             If (s65532 = "3") = 0 Then GoTo 1495
  186.                   Print
  187.                   Print " @0B@ Message #1B : @0F@"
  188.                   Print " @0B@>@0F@";
  189.                   Input s4493
  190.                 Loop
  191.                 GoTo 1773
  192.  1495           If s65532 = "C" Then GoTo 1533
  193.                 If (s65532 = "c") = 0 Then GoTo 1574
  194.  1533           Print
  195.                 s4497 = InputMask(" @0B@Enter color code to use for Message #1B :@0F@ ", "XXXX", "", 1213417543)
  196.               Loop
  197.               GoTo 1773
  198.  1574         If (s65532 = "4") = 0 Then GoTo 1631
  199.               Print
  200.               Print " @0B@ Message #2B : @0F@"
  201.               Print " @0B@>@0F@";
  202.               Input s4501
  203.             Loop
  204.             GoTo 1773
  205.  1631       If s65532 = "D" Then GoTo 1669
  206.             If (s65532 = "d") = 0 Then GoTo 1710
  207.  1669       Print
  208.             s4505 = InputMask(" @0B@Enter color code to use for Message #2B : @0F@", "XXXX", "", 1213417543)
  209.           Loop
  210.           GoTo 1773
  211.  1710     If s65532 = "H" Then GoTo 1748
  212.           If (s65532 = "h") = 0 Then GoTo 1766
  213.  1748     Sub1781
  214.         Loop
  215.         GoTo 1773
  216.  1766   Func3185
  217.  1773
  218.       End Function
  219.  
  220. '! Called 1 time
  221.       Sub Sub1781
  222.         Dim s65534 As String*1
  223.         Dim s65535 As String*1
  224.  
  225.         s65535 = InputMask(" @0B@Enter number of item you need help with: [@0F@1@0B@-@0F@4@0B@, @0F@A@0B@-@0F@D@0B@, @0F@Q@0B@]: ", "XX", "", 1213417543)
  226.         s65534 = s65535
  227.         If s65534 = "1" Then
  228.           Print
  229.           Print " @4F@#1 - Personalized Message #1@0F@"
  230.           Print
  231.           Print " Enter something you would like to notify your users about while they are"
  232.           Print " trying to think of a reason to page you."
  233.           Print " (Example:) Have you played the totally kewl new door I put up today?"
  234.           WaitEnter 
  235.         Else
  236.  1899     If s65534 = "A" Then GoTo 1937
  237.           If s65534 = "a" Then
  238.  1937       Print
  239.             Print " @4F@#A - Color of Message #1@0F@"
  240.             Print
  241.             Print " Only @-code colors here!  Any valid Wildcat colors will work, please"
  242.             Print " remember to enter the @ before and after, otherwise it will not work."
  243.             Print " Refer to your Wildcat Manual, page 483."
  244.             WaitEnter 
  245.           Else
  246.  1986       If s65534 = "2" Then
  247.               Print
  248.               Print " @4F@#2 - Personalized Message #2@0F@"
  249.               Print
  250.               Print " Enter something you would like to notify your users about while they are"
  251.               Print " trying to think of a reason to page you."
  252.               Print " (Example:) Hope you have a -really- good reason for paging me!"
  253.               WaitEnter 
  254.             Else
  255.  2054         If s65534 = "B" Then GoTo 2092
  256.               If s65534 = "b" Then
  257.  2092           Print
  258.                 Print " @4F@#B - Color of Message #2@0F@"
  259.                 Print
  260.                 Print " Only @-code colors here!  Any valid Wildcat colors will work, please"
  261.                 Print " remember to enter the @ before and after, otherwise it will not work."
  262.                 Print " Refer to your Wildcat Manual, page 483."
  263.                 WaitEnter 
  264.               Else
  265.  2141           If s65534 = "3" Then
  266.                   Print
  267.                   Print " @4F@#3 - Personalized Message #1B@0F@"
  268.                   Print
  269.                   Print " Enter something you would like to say to your users while they are"
  270.                   Print " waiting for you to answer your page."
  271.                   Print " (Example:) Counting to SIX......press SPACE BAR to abort page."
  272.                   WaitEnter 
  273.                 Else
  274.  2209             If s65534 = "C" Then GoTo 2247
  275.                   If s65534 = "c" Then
  276.  2247               Print
  277.                     Print " @4F@#C - Color of Message #1B@0F@"
  278.                     Print
  279.                     Print " Only @-code colors here!  Any valid Wildcat colors will work, please"
  280.                     Print " remember to enter the @ before and after, otherwise it will not work."
  281.                     Print " Refer to your Wildcat Manual, page 483."
  282.                     WaitEnter 
  283.                   Else
  284.  2296               If s65534 = "4" Then
  285.                       Print " @4F@#4 - Personalized Message #2B@0F@"
  286.                       Print
  287.                       Print " Enter something you would like to say to your users while they are"
  288.                       Print " waiting for you to answer your page."
  289.                       Print " (Example:) Hope I'm not setting up a new door right now!"
  290.                       WaitEnter 
  291.                     Else
  292.  2362                 If s65534 = "D" Then GoTo 2400
  293.                       If s65534 = "d" Then
  294.  2400                   Print
  295.                         Print " @4F@#D - Color of Message #2B@0F@"
  296.                         Print
  297.                         Print " Only @-code colors here!  Any valid Wildcat colors will work, please"
  298.                         Print " remember to enter the @ before and after, otherwise it will not work."
  299.                         Print " Refer to your Wildcat Manual, page 483."
  300.                         WaitEnter 
  301.                         GoTo 2449
  302.                       End If
  303.                     End If
  304.                   End If
  305.                 End If
  306.               End If
  307.             End If
  308.           End If
  309.         End If
  310.  2449
  311.       End Sub
  312.  
  313. '! Called 1 time
  314.       Sub Sub2452
  315.         Dim s65534 As String*1
  316.         Dim s65535 As String*1
  317.  
  318.         s65535 = InputMask(" @0B@Enter number of item you need help with: [@0F@1@0B@-@0F@6@0B@, @0F@S N A@0B@]: @0F@", "X", "", 1213417543)
  319.         s65534 = s65535
  320.         If s65534 = "1" Then
  321.           Print
  322.           Print " @4F@#1 - Registration Number@0F@"
  323.           Print
  324.           Print " Enter your REGISTRATION NUMBER exactly, or @0B@0@0F@ (zero) for Unregistered."
  325.           WaitEnter 
  326.         Else
  327.  2552     If s65534 = "2" Then
  328.             Print
  329.             Print " @4F@#2 - Conference Number@0F@"
  330.             Print
  331.             Print " Enter the Conference Number you would like to have -REASONS- sent to you."
  332.             Print " -REASONS- will be be a short message from a user before paging you, if you"
  333.             Print " did not answer your page, or if the page was off - this message will be sent."
  334.             WaitEnter 
  335.           Else
  336.  2620       If s65534 = "3" Then
  337.               Print
  338.               Print " @4F@#3 - Notify Users?@0F@"
  339.               Print
  340.               Print " If you would like to let users know whether or not your page is on, simply"
  341.               Print " enter a @0B@Y@0F@ (Yes) here, otherwise enter an @0B@N@0F@ (No)."
  342.               WaitEnter 
  343.             Else
  344.  2679         If s65534 = "4" Then
  345.                 Print
  346.                 Print " @4F@#4 - Send Levels in LOCKOUT.SEC to another Program?@0F@"
  347.                 Print
  348.                 Print " If you would like to send users (with security levels that match those"
  349.                 Print " listed in LOCKOUT.SEC) to a seperate program after attempting to page -"
  350.                 Print " then enter a Y (Yes), otherwise enter an N (No).  Remember, these users"
  351.                 Print " do -not- have access to page you.  A use for this would be to popup the"
  352.                 Print " screen NOPAGE.BBS, notifying the user of what is about to happen, then"
  353.                 Print " (perhaps) send them to your verification door, or online registration."
  354.                 Print " Remember, only a simple Y or N is entered here!"
  355.                 WaitEnter 
  356.               Else
  357.  2783           If s65534 = "5" Then
  358.                   Print
  359.                   Print " @4F@#13- Type of Program to Run@0F@"
  360.                   Print
  361.                   Print " This line will be ignored if Line 4 was answered N (No)!!"
  362.                   Print " Only three acceptable answers here: @0B@0@0F@ (zero), @0B@1@0F@ (one), or @0B@2@0F@ (two)."
  363.                   Print " Assuming you have a @0B@Y@0F@ on Line 4... "
  364.                   Print " @0B@0@0F@ = Run Wildcats default -Comment to SysOp-"
  365.                   Print " @0B@1@0F@ = Run an EXE, COM, or BAT file"
  366.                   Print " @0B@2@0F@ = Run a WCX file."
  367.                   Print
  368.                   Print " Be sure you select the appropriate number, if you choose to use this option."
  369.                   WaitEnter 
  370.                 Else
  371.  2889             If s65534 = "6" Then
  372.                     Print
  373.                     Print " @4F@#14- Program to Run's - Full Path & Name@0F@"
  374.                     Print
  375.                     Print " Enter the complete drive letter, path, and filename of the program you will"
  376.                     Print " run when a user (defined by their security level in LOCKOUT.SEC) attempts to"
  377.                     Print " page you."
  378.                     Print " (Example:) C:\WILDCAT\BATCH\VERIFY.BAT  (<-This would require a 1 on Line 5)"
  379.                     WaitEnter 
  380.                   Else
  381.  2966               If s65534 = "S" Then GoTo 3004
  382.                     If s65534 = "s" Then
  383.  3004                 Print
  384.                       Print " @4F@S - Save & Exit!@0F@"
  385.                       Print
  386.                       Print " Save all changes and exit."
  387.                       WaitEnter 
  388.                     Else
  389.  3035                 If s65534 = "N" Then GoTo 3073
  390.                       If s65534 = "n" Then
  391.  3073                   Print
  392.                         Print " @4F@N - Next Page@0F@"
  393.                         Print
  394.                         Print " Don't forget Page 2 of your config!  These are optional messages you can send"
  395.                         Print " to users while in opPAGE."
  396.                         WaitEnter 
  397.                       Else
  398.  3113                   If s65534 = "A" Then GoTo 3151
  399.                         If s65534 = "a" Then
  400.  3151                     Print
  401.                           Print " @4F@A - Abort & Exit@0F@"
  402.                           Print
  403.                           Print " Forget any & all changes you made, and exit."
  404.                           WaitEnter 
  405.                           GoTo 3182
  406.                         End If
  407.                       End If
  408.                     End If
  409.                   End If
  410.                 End If
  411.               End If
  412.             End If
  413.           End If
  414.         End If
  415.  3182
  416.       End Sub
  417.  
  418. '! Called 2 times
  419.       Function Func3185 As Integer
  420.         Dim s65516 As String
  421.         Dim s65520 As String*1
  422.         Dim s65521 As String
  423.         Dim s65525 As String
  424.         Dim s65529 As String
  425.         Dim s65533 As String*1
  426.  
  427.         Do
  428.           Do
  429.             Do
  430.               Do
  431.                 Do
  432.                   Do
  433.                     Do
  434.                       Do
  435.                         Do
  436.                           Do
  437.  3194                       If o4475 = -1 Then
  438.                               s65525 = "YES"
  439.                             End If
  440.  3219                       If o4475 = 0 Then
  441.                               s65525 = "NO"
  442.                             End If
  443.  3242                       If o4476 = -1 Then
  444.                               s65521 = "YES"
  445.                             End If
  446.  3267                       If o4476 = 0 Then
  447.                               s65521 = "NO"
  448.                             End If
  449.  3290                       If b4509 = 0 Then
  450.                               s65529 = "COMMENT"
  451.                             End If
  452.  3313                       If b4509 = 1 Then
  453.                               s65529 = "EXE, COM, or BAT"
  454.                             End If
  455.  3337                       If b4509 = 2 Then
  456.                               s65529 = "WCX"
  457.                             End If
  458.  3361                       Cls 
  459.                             Print "@0F@  @0C@opPAGE Configuration Utility v1.02                   @0E@Current Settings"
  460.                             Print "@0E@ @08@─────────────────────────────────────────────────────────────────────────────"
  461.                             Print "@08@  @0B@1@0F@] @0B@Registration Number                         @08@║  @0C@1@0F@] @0E@"; l4469
  462.                             Print "@0F@  @0B@2@0F@] @0B@Conference Number                           @08@║  @0C@2@0F@] @0E@"; i4473
  463.                             Print "@0F@  @0B@3@0F@] @0B@Notify Users whether or not Page is On?     @08@║  @0C@3@0F@] @0E@"; s65525
  464.                             Print "@0F@  @0B@4@0F@] @0B@Send LOCKOUT.SEC to another program?        @08@║  @0C@4@0F@] @0E@"; s65521
  465.                             Print "@0F@  @08@────────────────────────────────────────────────────────────────────────────"
  466.                             Print "@08@  @0B@5@0F@] @0B@Type of program to run (affects only users  @08@║  @0C@5@0F@] @0E@"; s65529
  467.                             Print "@0F@     @0B@whose security levels match LOCKOUT.SEC).   @08@║"
  468.                             Print "@08@  ────────────────────────────────────────────────────────────────────────────"
  469.                             Print "@08@  @0B@6@0F@] @0B@FULL Path and Name of program to run (only for EXE, COM, BAT, or WCX)"
  470.                             Print "@0B@  @0C@-@0F@>@0E@"; UCase(s4510)
  471.                             Print "@0F@ @08@─────────────────────────────────────────────────────────────────────────────"
  472.                             Print "@08@ @0B@[@0E@H @0B@= @0F@HELP@0B@, @0E@A@0B@ = @0F@ABORT & EXIT@0B@, @4F@S@0B@ = @0F@SAVE & EXIT@0B@, @0E@N @0B@= @0F@NEXT PAGE@0B@] @0C@SELECT:@0F@ ";
  473.                             Input s65533
  474.                             s65520 = s65533
  475.                             If (s65520 = "1") = 0 Then GoTo 3609
  476.                             Print
  477.                             l4469 = InputNumber("@0B@Enter Registration Number, or 0 (zero) for unregistered : @0F@", - 2147483647, 2147483647)
  478.                           Loop
  479.                           GoTo 4963
  480.  3609                     If (s65520 = "2") = 0 Then GoTo 3663
  481.                           Print
  482.                           i4473 = InputNumber("@0B@Enter the conference # to post messages : @0F@", - 32767, 32767)
  483.                         Loop
  484.                         GoTo 4963
  485.  3663                   If (s65520 = "3") = 0 Then GoTo 3710
  486.                         Print
  487.                         o4475 = InputYesNo("@0B@Would you like users to know if the PAGE is ON or OFF? (@0F@Y@0B@/@0F@N@0B@) : @0F@", 0)
  488.                       Loop
  489.                       GoTo 4963
  490.  3710                 If (s65520 = "4") = 0 Then GoTo 3759
  491.                       Print
  492.                       o4476 = InputYesNo("@0B@Sending levels listed in LOCKOUT.SEC to another program? (@0F@Y@0B@/@0F@N@0B@) : @0F@", -1)
  493.                     Loop
  494.                     GoTo 4963
  495.  3759               If (s65520 = "5") = 0 Then GoTo 3847
  496.                     If o4476 Then
  497.                       Print
  498.                       b4509 = InputNumber("@0B@Please enter a @0F@0@0B@ (Comment), @0F@1@0B@ (EXE/COM/BAT), or @0F@2@0B@ (WCX): @0F@", 0, 2)
  499.                     Else
  500.  3813                 Beep 
  501.                       Print
  502.                       Print " @0F@You answered @0C@NO@0F@ on Line 4, this option is not used!"
  503.                       Delay 2
  504.                     End If
  505.  3835             Loop
  506.                   GoTo 4963
  507.  3847             If (s65520 = "6") = 0 Then GoTo 4056
  508.                   If (Not o4476) = 0 Then GoTo 3913
  509.                   Beep 
  510.                   Print
  511.                   Print " @0F@You answered @0C@NO@0F@ on Line 4, this option is not used!"
  512.                   Delay 2
  513.                 Loop
  514.                 GoTo 4050
  515.  3913           If (b4509 = 0) = 0 Then GoTo 3961
  516.                 Beep 
  517.                 Print
  518.                 Print "  @0C@ERROR!@0F@ That answer conflicts with your choice for #5."
  519.                 Delay 2
  520.               Loop
  521.               GoTo 4050
  522.  3961         s65516 = UCase(s65516)
  523.               Print
  524.               Print " @0B@Enter the FULL path and name of the program to run: "
  525.               Print ">";
  526.               Input s65516
  527.               If Not Exists(s65516) Then
  528.                 Beep 
  529.                 Print
  530.                 Print " @0C@ERROR!@0F@  That file (and/or path) does not exist!  Try again."
  531.                 WaitEnter 
  532.               Else
  533.  4036           s4510 = s65516
  534.               End If
  535.  4044       Loop
  536.  4050       GoTo 4963
  537.  4056       If s65520 = "H" Then GoTo 4094
  538.             If (s65520 = "h") = 0 Then GoTo 4112
  539.  4094       Sub2452
  540.           Loop
  541.           GoTo 4963
  542.  4112     If s65520 = "S" Then GoTo 4150
  543.           If s65520 = "s" Then
  544.  4150       Open s4463 For Output As 1
  545.             Print #1, l4469
  546.             Print #1, i4473
  547.             Print #1, o4475
  548.             Print #1, o4476
  549.             Print #1, s4477
  550.             Print #1, s4481
  551.             Print #1, s4485
  552.             Print #1, s4489
  553.             Print #1, s4493
  554.             Print #1, s4497
  555.             Print #1, s4501
  556.             Print #1, s4505
  557.             Print #1, b4509
  558.             Print #1, s4510
  559.             Close 1
  560.             Print
  561.             Print " @0F@Configuration saved as: @0B@"; UCase(s4463); "@0F@"
  562.             Delay 1
  563.             Print
  564.             If i4467 = 0 Then
  565.               ActivityLog "*UNREGISTERED* opPAGE Configuration Utility!  Please register today!"
  566.               Print
  567.               Print "  @8C@* UNREGISTERED *@0F@ ■ @0C@REGISTRATION REFLECTION DELAY @0F@■ @0F@[@04@░░░░░░░░░░@0F@]";
  568.               Locate 19, 55
  569.               Print "@0C@█";
  570.               Delay 1
  571.               Print "█";
  572.               Delay 1
  573.               Print "█";
  574.               Delay 1
  575.               Print "█";
  576.               Delay 1
  577.               Print "█";
  578.               Delay 1
  579.               Print "█";
  580.               Delay 1
  581.               Print "█";
  582.               Delay 1
  583.               Print "█";
  584.               Delay 1
  585.               Print "█";
  586.               Delay 1
  587.               Print "█@0F@";
  588.               Delay 2
  589.               Print
  590.               Print
  591.             Else
  592.  4562         Print " @0F@■ @0B@REGISTERED @0F@■ @0B@Thank You!@0F@"
  593.             End If
  594.  4571       Print
  595.             Print " opPAGE Configuration Closing - Thank you for using it!"
  596.             Print " COPYRIGHT (C) 1996 Corinne King "
  597.             Delay 1.5
  598.             End 
  599.             GoTo 4963
  600.           End If
  601.  4606     If s65520 = "A" Then GoTo 4644
  602.           If s65520 = "a" Then
  603.  4644       If i4467 = 0 Then
  604.               ActivityLog "*UNREGISTERED* opPAGE Configuration Utility!  Please register today!"
  605.               Print
  606.               Print "  @8C@* UNREGISTERED *@0F@ ■ @0C@REGISTRATION REFLECTION DELAY @0F@■ @0F@[@04@░░░░░░░░░░@0F@]";
  607.               Locate 16, 55
  608.               Print "@0C@█";
  609.               Delay 1
  610.               Print "█";
  611.               Delay 1
  612.               Print "█";
  613.               Delay 1
  614.               Print "█";
  615.               Delay 1
  616.               Print "█";
  617.               Delay 1
  618.               Print "█";
  619.               Delay 1
  620.               Print "█";
  621.               Delay 1
  622.               Print "█";
  623.               Delay 1
  624.               Print "█";
  625.               Delay 1
  626.               Print "█@0F@";
  627.               Delay 2
  628.               Print
  629.               Print
  630.             Else
  631.  4864         Print " @0F@■ @0B@REGISTERED @0F@■ @0B@Thank You!@0F@"
  632.             End If
  633.  4873       Print " opPAGE Configuration Closing - Thank you for using it!"
  634.             Print " COPYRIGHT (C) 1996 Corinne King "
  635.             Delay 1.5
  636.             End 
  637.             GoTo 4963
  638.           End If
  639.  4906     If s65520 = "N" Then GoTo 4944
  640.           If s65520 = "n" Then
  641.  4944       Func939
  642.             GoTo 4963
  643.           End If
  644.  4957   Loop
  645.  4963
  646.       End Function
  647.